1 FORI=1TO25:READA$:POKE36864+I,VAL("#"+A$):NEXT:DATA6E,28,B6,6E,29,B6,6E,2A,B6
2 DATA6E,2B,B6,6E,2C,B6,6E,2D,B6,6E,2E,B6,6E,2F,B6,40:DOKE587,36864:POKE586,76